#!/usr/bin/perl -wT
use CGI qw(:standard);
use strict;

print header;
print start_html("Realm Crawler Login Page");

my $page = $ENV{QUERY_STRING};

print <<EndHTML;
 <h1 align="center">Realm Crawler</h1>
<h3 align="center">User Login form</h3>
<br>
<form action="login2.cgi" method="POST"> <br>
<div align="center"> Please enter your User name and password. If
you're a new member, click <a href="/register.html">here</a> to
register.<br>
<br>
<br>
<br>
</div>
<br>
<table border="1" cellpadding="2" cellspacing="2" height="122"
width="390" align="center">
<tbody>
<tr>
<td>User name <input name="username" size="30" type="text"></td>
</tr>
<tr>
<td>Password &nbsp; <input name="password" size="30"
type="password"></td>
</tr>
<tr>
<td valign="middle" align="center"><input value="Log In"
type="submit"><br>
</td>
</tr>
</tbody>
</table>
<p align="center"><big><b><br>
</b></big></p>
<p align="center"><big><b><br>
Important </b></big>Be sure you have cookies turned on in
your browser.</p>
<p><br>
<br>
<br>
<br>
</p>
</form>
<br>
<br>
EndHTML

print end_html;

